type
  point = record
    x, y : longint;
  end;
var
  p : point;
begin
  with p do
  begin
  end;
end.